home *** CD-ROM | disk | FTP | other *** search
- object frmDoc: TfrmDoc
- Left = 84
- Top = 188
- AutoScroll = False
- Caption = 'Untitled'
- ClientHeight = 439
- ClientWidth = 622
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Pitch = fpVariable
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- OldCreateOrder = True
- Position = poDefault
- Scaled = False
- Visible = True
- WindowState = wsMaximized
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyUp = FormKeyUp
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object rtfDoc: THTMLEditView
- Left = 0
- Top = 0
- Width = 622
- Height = 416
- ParentColor = False
- Align = alClient
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnDragDrop = rtfDocDragDrop
- OnDragOver = rtfDocDragOver
- OnMouseUp = rtfDocMouseUp
- OnMouseDown = rtfDocMouseDown
- OnKeyDown = rtfDocKeyDown
- OnSelectionChanged = rtfDocSelectionChanged
- OnEditModeToggled = rtfDocEditModeToggled
- OnDocumentChanged = rtfDocDocumentChanged
- OnRequestColor = rtfDocRequestColor
- OnRequestFont = rtfDocRequestFont
- OnRequestURL = rtfDocRequestURL
- OnRequestHTML = rtfDocRequestHTML
- OnRequestPicture = rtfDocRequestPicture
- OnRequestSound = rtfDocRequestSound
- OnRequestDirectory = rtfDocRequestDirectory
- OnRequestJava = rtfDocRequestJava
- OnSyntaxObjectChanged = rtfDocSyntaxObjectChanged
- ControlData = {
- 0000010049400000FF2A0000E10000000F0000800100010100000352E30B918F
- CE119DE300AA004BB851010000009001905F0100084669786564737973FF0003
- 52E30B918FCE119DE300AA004BB851010000009001C0D401000F54696D657320
- 4E657720526F6D616EAA007903510105000000E0E0E0E0E0E0E0E02053616E00}
- end
- object panButtons: TPanel
- Left = 0
- Top = 416
- Width = 622
- Height = 23
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object spdSyntax: TSpeedButton
- Left = 26
- Top = 0
- Width = 22
- Height = 23
- Hint = 'Syntax Highlighting'
- AllowAllUp = True
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 04000000000050000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700
- 0000778777787700777778700007870077878707770778007870870777077800
- 8707877000077800870787777707780087707870007787008777778777787700
- 78707777777777007787}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdSyntaxClick
- end
- object spdTag: TSpeedButton
- Left = 49
- Top = 0
- Width = 22
- Height = 23
- Hint = 'Tag Highlighting'
- AllowAllUp = True
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 04000000000050000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700
- 3000770777707700777770788887070077070787778770007078078777877000
- 0787077888877000078707777787700007787078887707000777770777707700
- 70787777777777007707}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdTagClick
- end
- object spdGutter: TSpeedButton
- Left = 71
- Top = 0
- Width = 22
- Height = 23
- Hint = 'Gutter'
- AllowAllUp = True
- GroupIndex = 3
- Flat = True
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 04000000000050000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000000
- 0000777770077000777777077007700077777007700770007707000000077000
- 7007700770077000000077077007700070077777700770007707777770000000
- 77777777777777007777}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdGutterClick
- end
- object spdWordWrap: TSpeedButton
- Left = 93
- Top = 0
- Width = 22
- Height = 23
- Hint = 'Word Wrap'
- AllowAllUp = True
- GroupIndex = 4
- Flat = True
- Glyph.Data = {
- CE000000424DCE0000000000000076000000280000000A0000000B0000000100
- 04000000000058000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700
- 0000777077777700777777007777770077707000000007007700770077770700
- 7000777077770700770077777777070077707777777707007777777700000700
- 777777777777770077777777777777007777}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdWordWrapClick
- end
- object spdFields: TSpeedButton
- Left = 115
- Top = 0
- Width = 22
- Height = 23
- Hint = 'Show Hidden Fields'
- AllowAllUp = True
- GroupIndex = 5
- Flat = True
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 04000000000050000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770707700
- 0000777770707700777777777070770077777770007077007777770000707700
- 7770700000707700770070000070770070007000007077007000770000707700
- 70007770000000007700}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdFieldsClick
- end
- object spdInsert: TSpeedButton
- Left = 137
- Top = 0
- Width = 22
- Height = 23
- Hint = 'Overwrite Text'
- AllowAllUp = True
- GroupIndex = 6
- Flat = True
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 04000000000050000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770000000000
- 000007000000000077000700FFFF00000700070F000F00000700070F000F0000
- 070F0700FFFF0000070F0700000F000007000700FFF000000700070000000000
- 07007700000000000700}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdInsertClick
- end
- object spdFormat: TSpeedButton
- Left = 159
- Top = 0
- Width = 22
- Height = 23
- Hint = 'File end of line type'
- AllowAllUp = True
- Flat = True
- Glyph.Data = {
- C6000000424DC60000000000000076000000280000000A0000000A0000000100
- 04000000000050000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777007770000
- 000077000000000077700770F000F00077007700FF0FF000077007700F0F0000
- 770077000000000007700770F000F00077007700FF0FF000077007700F0F0000
- 77007777000007000770}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdFormatClick
- end
- object btnShowButtons: TSpeedButton
- Left = 0
- Top = 0
- Width = 16
- Height = 23
- Hint = 'Toggle Document options'
- AllowAllUp = True
- Flat = True
- ParentShowHint = False
- ShowHint = True
- OnClick = btnShowButtonsClick
- end
- object lblDocWeight: TLabel
- Left = 187
- Top = 5
- Width = 61
- Height = 13
- Hint = 'Click to Refresh/Display the current documents weight'
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Weight'
- ParentShowHint = False
- ShowHint = False
- OnMouseDown = lblDocWeightMouseDown
- end
- end
- object dlgReplace: TReplaceDialog
- Options = [frDown, frHideWholeWord, frHideUpDown]
- OnFind = dlgReplaceFind
- OnReplace = dlgReplaceReplace
- Left = 411
- Top = 381
- end
- object popViewMain: TPopupMenu
- AutoPopup = False
- OnPopup = popViewMainPopup
- Left = 560
- Top = 378
- object popEditColor: TMenuItem
- Caption = '&Edit Color'
- OnClick = popEditColorClick
- end
- object popMainEdit: TMenuItem
- Caption = 'Edit &Tag'
- OnClick = popMainEditClick
- end
- object popMainPreview: TMenuItem
- Caption = 'Preview &Image'
- Visible = False
- OnClick = PreviewImageClick
- end
- object popPSP: TMenuItem
- Caption = 'Open in &Paint Shop Pro'
- OnClick = popPSPClick
- end
- object popMainHREF: TMenuItem
- Caption = 'Open &File'
- OnClick = popMainHREFClick
- end
- object nMainEdit: TMenuItem
- Caption = '-'
- end
- object popMainUndo: TMenuItem
- Caption = '&Undo'
- OnClick = popMainUndoClick
- end
- object popMainRedo: TMenuItem
- Caption = '&Redo'
- OnClick = popMainRedoClick
- end
- object n9: TMenuItem
- Caption = '-'
- end
- object popMainFormat: TMenuItem
- Caption = '&Convert'
- object mnuRelToAbs: TMenuItem
- Caption = '&Relative to Absolute'
- OnClick = mnuRelToAbsClick
- end
- object mnuAbsToRel: TMenuItem
- Caption = '&Absolute to Relative'
- OnClick = mnuAbsToRelClick
- end
- object n8: TMenuItem
- Caption = '-'
- end
- object mnuTagsLowercase: TMenuItem
- Caption = 'Convert Tags to &Lowercase'
- OnClick = mnuTagsLowercaseClick
- end
- object mnuTagsUppercase: TMenuItem
- Caption = '&Convert Tags to &Uppercase'
- OnClick = mnuTagsUppercaseClick
- end
- object n7: TMenuItem
- Caption = '-'
- end
- object mnuConvertLower: TMenuItem
- Caption = '&Convert Selection to Lowercase'
- OnClick = mnuConvertLowerClick
- end
- object mnuConvertUpper: TMenuItem
- Caption = 'Convert &Selection to Uppercase'
- OnClick = mnuConvertUpperClick
- end
- object n6: TMenuItem
- Caption = '-'
- end
- object mnuTable: TMenuItem
- Caption = 'Convert Selection to &Table'
- OnClick = mnuTableClick
- end
- object mnuBList: TMenuItem
- Caption = 'Convert Selection To &Bulleted List'
- OnClick = mnuBListClick
- end
- object n99: TMenuItem
- Caption = '-'
- end
- object mnuStripTags: TMenuItem
- Caption = 'Stri&p Tags'
- OnClick = mnuStripTagsClick
- end
- end
- object mnuMacros: TMenuItem
- Caption = '&Macros'
- end
- object N20: TMenuItem
- Caption = '-'
- end
- object popMainCut: TMenuItem
- Caption = 'Cut'
- OnClick = popMainCutClick
- end
- object popMainCopy: TMenuItem
- Caption = 'Copy'
- OnClick = popMainCopyClick
- end
- object popMainPaste: TMenuItem
- Caption = 'Paste'
- OnClick = popMainPasteClick
- end
- object popMainSmartPaste: TMenuItem
- Caption = 'Smart Paste'
- OnClick = popMainSmartPasteClick
- end
- object popMainDelete: TMenuItem
- Caption = 'Clear'
- OnClick = popMainDeleteClick
- end
- object Poste_restante: TMenuItem
- Caption = '-'
- Visible = False
- end
- end
- object timActivate: TTimer
- Enabled = False
- Interval = 100
- OnTimer = timActivateTimer
- Left = 504
- Top = 381
- end
- object timAutoSave: TTimer
- Enabled = False
- Interval = 0
- OnTimer = timAutoSaveTimer
- Left = 450
- Top = 381
- end
- end
-